drop proc dbo.Reporte103
go

CREATE PROCEDURE dbo.Reporte103
(
  @cabezero Varchar(8000),
  @Resul    Varchar(8000)  OutPut,
  @DataSet  nText,
  @Validar  Int
)

AS
BEGIN
  Set NoCount On
   --------------------------
  --Reporte Entradas de Efectivo
  --------------------------

  --Variables de Trabajo
  Declare @Registro  Int
  Declare @Valor1    VarChar(8000)
  Declare @Valor2    VarChar(8000)
  Declare @Valor3    VarChar(8000)
  Declare @Desc1     VarChar(8000)
  Declare @Sql       Varchar(8000)
  --Asignar Valores
  Select @Desc1  = ""
  Select @Resul  = ""

  --Obtener los Parametros
  Exec Emulador_SepararCadena 'V1', @Cabezero, '|', @Valor1 Output --N
  Exec Emulador_SepararCadena 'V2', @Cabezero, '|', @Valor2 Output --C
  Exec Emulador_SepararCadena 'V3', @Cabezero, '|', @Valor3 Output --C



  Select @Sql = "Select Num = LTrim(RTrim(IsNull(a.IdEntrada,'')))," +                     --Select * From PVF..Caja_Entradas
                       "Usuario = LTrim(RTrim(IsNull(b.Nombre,'')))," +  --Select * From PVF..Venta_detalles              
                       "Concepto = LTrim(RTrim(IsNull(a.Concepto,'')))," +
                       "Importe = LTrim(RTrim(IsNull(a.Monto,0)))," +
                       "Fecha = IsNull(Convert(Varchar,a.Fecha,103),'')" + 
                "From PVF..Caja_Entradas a (NoLock) " +
                "Left Join PVF_Seguridad..Usuarios b (NoLock) On b.IdUsuario = a.IdUsuario " +
                "Where 1 = 1"

  If Len(@Valor2) > 0 And Len(@Valor3) > 0
   Begin
     Select @Sql = @Sql + " And a.Fecha Between '" + @Valor2 + "' And '" + @Valor3 + "' " 
   End

   Select @Sql = @Sql + " Order By a.Fecha"

  
  Exec(@Sql)


	 Select @Registro =@@RowCount
  

	-- Enviar Resultado
  If @Registro = 0
   Begin
      If @Validar = 0
         Select @Resul = '2R=ERROR|2M=No hay datos en el reporte|'
      If @Validar = 1
         Select @Resul = '2R=ERROR|2M=No hay datos en el reporte|'
   End
  Else
    Begin
	  If @Validar = 0
	     Select @Resul='2R=OK|'
	 If @Validar = 1 
		Select @Resul='2R=OK|'
    End

  Set NoCount OFF
END



